﻿Namespace Messages
    Public Class ChoreographyMessage
        Inherits RequestBase
        Implements IRequest

#Region "Member Fields"
        Private _choreographyTitle As String
        Private _sequence As Choreography.ActivitySequence
#End Region


#Region "Properties"
        Public Property Sequence() As Choreography.ActivitySequence
            Get
                Return _sequence
            End Get
            Set(ByVal value As Choreography.ActivitySequence)
                _sequence = value
            End Set
        End Property
        Public Property ChoreographyTitle() As String
            Get
                Return _choreographyTitle
            End Get
            Set(ByVal value As String)
                _choreographyTitle = value
            End Set
        End Property
#End Region

#Region "IMessage Implementation"
        Public Function GetQueryString() As String Implements IRequest.GetQueryString
            Dim query As New QueryBuilder(SerialNumber, Token)
            query.SetChoreographyTitle(Me.ChoreographyTitle)
            query.SetChoreography(Me.Sequence.GetSequenceCommand)
            Return query.ToString
        End Function
#End Region

    End Class
End Namespace
